﻿Public Class MainWindow
    ' Muted Status
    Private All_Muted As Boolean
    Private Slot1_Muted As Boolean
    Private Slot2_Muted As Boolean
    Private Slot3_Muted As Boolean
    Private Slot4_Muted As Boolean
    Private Slot5_Muted As Boolean
    Private Slot6_Muted As Boolean
    Private Slot7_Muted As Boolean
    Private Slot8_Muted As Boolean
    Private Slot9_Muted As Boolean
    Private Slot10_Muted As Boolean
    Private Slot11_Muted As Boolean
    Private Slot12_Muted As Boolean
    Private Slot13_Muted As Boolean
    ' Paused Status
    Private All_Paused As Boolean
    Private Slot1_Paused As Boolean
    Private Slot2_Paused As Boolean
    Private Slot3_Paused As Boolean
    Private Slot4_Paused As Boolean
    Private Slot5_Paused As Boolean
    Private Slot6_Paused As Boolean
    Private Slot7_Paused As Boolean
    Private Slot8_Paused As Boolean
    Private Slot9_Paused As Boolean
    Private Slot10_Paused As Boolean
    Private Slot11_Paused As Boolean
    Private Slot12_Paused As Boolean
    Private Slot13_Paused As Boolean

    Private Sub Slot1_Mute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slot1_Mute.Click
        If Slot1_Muted = True Then
            Slot1_Muted = False
            Slot1_Mute.BackColor = Color.Lime
        Else
            Slot1_Muted = True
            Slot1_Mute.BackColor = Color.Red
        End If
    End Sub

    Private Sub Slot1_Pause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slot1_Pause.Click
        If Slot1_Paused = True Then
            Slot1_Paused = False
            Slot1_Pause.BackColor = Color.Lime
        Else
            Slot1_Paused = True
            Slot1_Pause.BackColor = Color.Red
        End If
    End Sub

    Private Sub Slot2_Mute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slot2_Mute.Click
        If Slot2_Muted = True Then
            Slot2_Muted = False
            Slot2_Mute.BackColor = Color.Lime
        Else
            Slot2_Muted = True
            Slot2_Mute.BackColor = Color.Red
        End If
    End Sub

    Private Sub Slot2_Pause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slot2_Pause.Click
        If Slot2_Paused = True Then
            Slot2_Paused = False
            Slot2_Pause.BackColor = Color.Lime
        Else
            Slot2_Paused = True
            Slot2_Pause.BackColor = Color.Red
        End If
    End Sub

End Class
